home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Tele
/
M
/
MiniBBS 1.1.cpt
/
MiniBBS 1.1
/
MiniBBS.TXT
< prev
Wrap
Text File
|
1988-07-29
|
2KB
|
50 lines
Settings File = Your Settings File
Script Name = MiniBBS
Command Key =
F-key =
Menu = YES
Button = NO
1 Set Variable NumberToSend from Expression "= 0"
2 Set Variable NumberReceived from Expression "= 1"
3 Set Text Xfr Param End Outgoing Lines with CR & LF
4 Append to File "Activity Log"
5 Repeat
6 Wait for Call
7 Capture On
8 Set Variable DT from Date & Time
9 Send Local to File "-------------------------^M"
10 Send Local to File "='Added at ',DT,'^M'"
11 Repeat
12 Send Text String "^M"
13 Send Text String "Please Select an Option & Press <RETURN>^M"
14 If Line Does not Contain "Option"
15 If Line Does not Contain "OOppttiioonn"
16 Set Term Param Local Echo Yes
17 Else
18 Set Term Param Local Echo No
19 End If
20 End If
21 Send Text String "----------------------------------------^M^M"
22 Send Text String "1) Send a File to MiniBBS^M^M"
23 Send Text String "2) Receive a File from MiniBBS^M^M"
24 Send Text String "3) Type in a Message for MiniBBS^M^M"
25 Send Text String "4) Exit & Hang Up^M^M"
26 Send Text String "Please Enter Your Option: ^M"
27 Wait for Line Not Containing "Your Option:"
28 If Line Contains "1"
29 Do Script * "MiniBBS Receives File"
30 Else If Line Contains "2"
31 Do Script * "MiniBBS Sends File"
32 Else If Line Contains "3"
33 Do Script * "MiniBBS Receives Message"
34 Else If Line Contains "4"
35 Send Text String "Thanks for Calling! Now Signing Off.^M"
36 Hang Up
37 End If
38 Until Line Contains "Now Signing Off."
39 Hang Up
40 Capture Off
41 Wait Seconds "20"
42 Until Expression "= NumberReceived = 100"